1 POKE50257,16:GOTO1000
10 PRINT"[147]        >>> MASKENGENERATOR <<<"
20 PRINT:PRINT
30 INPUT"STARTADRESSE49152[157][157][157][157][157][157][157]";AN
40 PRINT"MASCHINENPROGRAMM WIRD ERZEUGT ..."
50 PRINT"BITTE WARTEN."
60 FORA=1TO10:READW(A):NEXT
70 FORA=ANTOAN+607
80 READA$
90 B=VAL(A$)
100 CS=CS+B
110 IFA$="*"THENGOSUB460
120 IFB>255ORB<0THENPRINT"FEHLER IN ZEILE"PEEK(63)+PEEK(64)*256:END
130 IFB<>INT(B)THENPRINT"FEHLER IN ZEILE"PEEK(63)+PEEK(64)*256:END
140 POKEA,B
150 NEXT A
160 IF CS<>69488THENPRINT"[145]PRUEFSUMMENFEHLER !!":END
170 FORA=1TO5
180 READB:B=B+AN
190 HB=INT(B/256)
200 LB=B-HB*256
210 READC:POKEC+AN,LB
220 READD:POKED+AN,HB
230 NEXT A
240 PRINT"O.K."
250 PRINT"AUFRUF MIT 'SYS"AN"'"
260 PRINT"MAN KANN DANN DEN BILDSCHIRM EDITIEREN."
270 PRINT"MIT 'RETURN' WIRD DER VORGANG BEENDET."
280 PRINT"MIT CRSR UP/DOWN WIRD DIE ERSTE ZEILEN- NUMMER GEWAEHLT."
290 :
300 PRINT"NOCHMALIGES 'RETURN' GENERIERT DIE "
310 PRINT"BASIC-ZEILEN."
320 PRINT"PROGRAMM SPEICHERN ? ";
330 GETA$:IFA$<>"J"ANDA$<>"N"THEN330
340 PRINTA$:IFA$="N"THENEND
350 FS$="MASKE"+STR$(AN):FORA=1TOLEN(FS$):POKE703+A,ASC(MID$(FS$,A,1)):NEXT
360 POKE183,LEN(FS$):POKE185,1:POKE187,192:POKE188,02
370 POKE782,INT((AN+700)/256)
380 POKE781,AN+700-PEEK(782)*256
390 POKE780,251:POKE252,INT(AN/256)
400 POKE251,AN-PEEK(252)*256
410 PRINT"(D)ISKETTE ODER (C)ASSETTE ? ";
420 GETA$:IFA$<>"D"ANDA$<>"C"THEN420
425 PRINTA$
430 IFA$="D"THENPOKE186,8:GOTO450
440 POKE186,1
450 SYS65496:END
460 READ A$:B=VAL(A$)
470 W=AN+W(B)
480 HB=INT(W/256)
490 LB=W-HB*256
500 B=HB:POKEA,LB
510 A=A+1
520 RETURN
530 DATA150,136,591,370,406,583,429,302,547,472
540 DATA32,51,165,165,34,24,105,2,133,45,133,47,133,49,165,35,105
550 DATA0,133,46,133,48,133,50,24,169,147,32,210,255,32,207,255,201
560 DATA13,208,249,32,210,255,174,136,2,134,252,169,0,133,251,169,95
570 DATA133,253,169,194,133,254,162,4,160,0,177,251,145,253,200,208,249
580 DATA230,252,230,254,202,208,240,169,95,133,251,169,198,133,252,169,0
590 DATA133,253,169,216,133,254,162,4,160,0,177,253,41,15,145,251,200
600 DATA208,247,230,252,230,254,202,208,238,162,147,32,210,255,169,146,32
610 DATA210,255,169,14,141,134,2,162,100,142,60,3,169,0,141,61,3
620 DATA169,147,32,210,255,174,60,3,173,61,3,32,205,189,32,159,255
630 DATA32,228,255,201,13,240,76,201,17,240,7,201,145,240,37,76,*
640 DATA1,173,61,3,208,8,173,60,3,208,3,76,*,2,56,173,60
650 DATA3,233,10,141,60,3,173,61,3,233,0,141,61,3,24,76,*
660 DATA2,173,61,3,201,248,208,3,76,*,2,24,173,60,3,105,10
670 DATA141,60,3,173,61,3,105,0,141,61,3,24,76,*,2,173,17
680 DATA208,41,239,141,17,208,169,95,133,251,169,194,133,252,169,95,133
690 DATA253,169,198,133,254,169,255,141,63,3,141,64,3,169,40,141,65
700 DATA3,169,147,32,210,255,173,61,3,174,60,3,32,205,189,169,63
710 DATA32,210,255,169,34,32,210,255,169,25,141,62,3,160,0,177,253
720 DATA205,63,3,240,22,141,63,3,162,0,189,*,3,236,63,3,240
730 DATA3,232,208,245,142,63,3,32,210,255,160,0,177,251,41,128,240
740 DATA16,169,18,205,64,3,240,22,141,64,3,32,210,255,76,*,4
750 DATA169,146,205,64,3,240,6,141,64,3,32,210,255,160,0,177,251
760 DATA41,127,201,96,48,6,24,105,64,76,*,5,201,64,48,6,24
770 DATA105,32,76,*,5,201,32,48,3,76,*,5,24,105,64,201,34
780 DATA208,16,162,0,189,*,6,32,210,255,232,224,8,208,245,76,*
790 DATA7,32,210,255,24,165,251,105,1,133,251,165,252,105,0,133,252
800 DATA24,165,253,105,1,133,253,165,254,105,0,133,254,24,206,62,3
810 DATA240,3,76,*,8,206,65,3,208,3,76,*,9,169,34,32,210
820 DATA255,169,59,32,210,255,169,13,32,210,255,173,65,3,240,63,169
830 DATA83,32,210,255,169,121,32,210,255,169,193,162,17,32,205,189,173
840 DATA60,3,24,105,5,141,60,3,173,61,3,105,0,141,61,3,24
850 DATA169,19,141,119,2,169,13,141,120,2,169,13,141,121,2,169,3
860 DATA133,198,96,169,20,32,210,255,76,*,10,169,19,141,119,2,169
870 DATA13,141,120,2,169,147,141,121,2,169,3,133,198,173,17,208,9
880 DATA16,141,17,208,96,34,67,104,40,51,52,41,34,144,5,28,159
890 DATA156,30,31,158,129,149,150,151,152,153,154,155,128
900 DATA607,50,54,1631,76,80
910 DATA607,245,249,1631,253,257
920 DATA273,505,503
1000 POKE53280,0:POKE53281,7:PRINT"[147]"CHR$(14)CHR$(8);
1030 PRINT"[144]     [205] A S K E N G E N E ";
1035 PRINT"R A T O R                ";
1040 PRINT"       V O N             ";
1045 PRINT"          [211] V E N   [200] E S";
1050 PRINT" S E L B A C H       [166][166][166][166]";
1055 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
1060 PRINT"[166][166][166][166][166][166][166][166][166][144]  [154][146]              ";
1065 PRINT"                        [144] ";
1070 PRINT" [146]  [211]IE KENNEN DAS: [211]IE WO";
1075 PRINT"LLEN EINE       [154][146]  [144]ANSPREC";
1080 PRINT"HENDE [194]ILDSCHIRMAUSGABE E";
1085 PRINT"R-[154]  [144]  [146]  STELLEN - MIT FAR";
1090 PRINT"BIGEN [194]ALKEN         [154][146]  [144]UN";
1095 PRINT"D[154]                        ";
1100 PRINT"         [144]  [146]  -[144] RICHTIG AB";
1105 PRINT"GESETZTEN [211]PALTEN        ";
1110 PRINT" [154][146]  -[154] [144]EINER GUTEN [193]UFTEILU";
1115 PRINT"NG[154]            [144]  [146]  - [144]USW. ";
1120 PRINT"                         ";
1125 PRINT"      [154][146]                   ";
1130 PRINT"                   [144]  [146]  [193]L";
1135 PRINT"SO: [208]RINT-[218]EILEN SCHREIBE";
1140 PRINT"N, AUS-    [154][146]        [144]PROBIE";
1145 PRINT"REN OB'S STIMMT, DIE[154]    [144] ";
1150 PRINT" [146]        [218]EILEN WIEDER AE";
1155 PRINT"NDERN UND       [154][146]        [144]U";
1160 PRINT"ND UND ...[154]               ";
1165 PRINT"   [144]   [146]                   ";
1170 PRINT"                     [154][146]  [144][205]I";
1175 PRINT"T DEM [205]ASKENGENERATOR[154] [144]SPA";
1180 PRINT"REN [211]IE    [146]  SICH DAS.   ";
1185 PRINT"                         ";
1190 PRINT" [154][146]                        ";
1195 PRINT"              [144]  [146]         ";
1200 PRINT"                         ";
1205 PRINT"      [166][166][166][166][166][166][166][166][166][166][144][146][215]EITER: [212]";
1210 PRINT"ASTE !![166][166][166][166][166][166][166][166][166][166][166][166][144]      ";
1215 PRINT"                         ";
1220 PRINT"          [154][146]               ";
1225 PRINT"                        ";
1390 FORI=1980TO2023:POKEI,160:POKEI+54272,0:NEXT
1400 GETW$:IFW$=""THEN1400
1500 PRINT"[147]";
1600 PRINT"[154][146]                         ";
1605 PRINT"                 [144][211]IE STAR";
1610 PRINT"TEN DEN [205][193][211][203][197][206][199][197][206][197][210][193][212][207][210], ";
1615 PRINT"     [154]  [144]ERSTELLEN DEN [194]ILD";
1620 PRINT"SCHIRM [201]HRER        [154]  [144][215]AH";
1625 PRINT"L, DRUECKEN 2* "CHR$(34)"[210][197][212][213][210][206]"CHR$(34)" -";
1630 PRINT"[154]         [144]  [160]UND HABEN DAS";
1635 PRINT" [197]RGEBNIS ABRUFBAR[154]     [144]  ";
1640 PRINT"[154]  [144]IN [208]ROGRAMMZEILEN.[154]     ";
1645 PRINT" [144]                        ";
1650 PRINT"               [154]          ";
1655 PRINT"       [144][193]LLERDINGS: [193]US NA";
1660 PRINT"HELIEGENDEN  [154]     [144]  [154]  [144][199]RU";
1665 PRINT"ENDEN KOENNEN [211]IE DIESES ";
1670 PRINT"          [154]  [144][208]ROGRAMM NICH";
1675 PRINT"T INNERHALB VON[154]         [144] ";
1680 PRINT"[154]  [201][206][208][213][212][160]64[144][146] VERWENDEN - WI";
1685 PRINT"R LASSEN[154]       [154]  [144]SIE NAEM";
1690 PRINT"LICH NICHT IN DEN [196]IREKT-";
1695 PRINT"[154]       [144]MODUS. [154]           ";
1700 PRINT"                         ";
1705 PRINT"                         ";
1710 PRINT"            [144][196]ESWEGEN: [215]OL";
1715 PRINT"LEN [211]IE MIT DEM [205][193][211][203][197][206]-  ";
1720 PRINT"[154]  [144][199][197][206][197][210][193][212][207][210] ARBEITEN, DAN";
1725 PRINT"N[154]                        ";
1730 PRINT"                         ";
1735 PRINT"   [144]  [154]  [144]* [196]RUECKEN [211]IE <CT";
1740 PRINT"RL> UND <S> -       [154]    [144]D";
1745 PRINT"AMIT KOENNEN SIE DAS [208]ROG";
1750 PRINT"RAMM [154]    [144] [154]    [144]SAVEN.[154]     ";
1755 PRINT"                         ";
1760 PRINT"                         ";
1765 PRINT"                 [144]* [204]OESCH";
1770 PRINT"EN [211]IE VOR DEM [206]EUSTART D";
1775 PRINT"IE[154]       [144][218]EILE 1[154]    [144]     ";
1780 PRINT"                    [154]     ";
1785 PRINT"                         ";
1790 PRINT"                         ";
1795 PRINT"  [215]EITER: [212]ASTE[144][146]         ";
1900 GETW$:IFW$=""THEN1900
2000 SYS50283